home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / DBman d2.adf / RECDBF.PRG < prev    next >
Text File  |  1990-08-06  |  1KB  |  36 lines
  1. set talk off
  2. set public off
  3. erase
  4. text
  5.  
  6.  
  7.   This is the final step in converting the old database files.
  8.   Now that you have executed the SENDDBF.PRG program, you must receive
  9.   the delimited file with this program to get to the version V format.
  10.   To do this you must have the files that were exported by the SENDBF
  11.   program in the same directory as this program. The files you need are
  12.   named DBFSTRU.TXT and RECINFO.TXT. These file must be in the same
  13.   directory as this program.
  14.  
  15. endtext
  16. wait 'Press any key...'
  17. erase
  18. fname = space(64)
  19. @ 0,0 say 'Enter the name of the database when converted: ' get fname
  20. read
  21. fname = trim(fname)
  22. if trim(fname) <> ''
  23.   erase xxx.dbf
  24.   ? 'creating the database structure...'
  25.   create structure to xxx
  26.   use xxx
  27.   append delimited from dbfstru
  28.   close
  29.   create &fname from xxx
  30.   use &fname
  31.   ? 'receiving the records from the delimited file...'
  32.   append delimited from recinfo
  33.   wait 'Conversion complete!  Hit any key...'
  34. endif
  35. return
  36.